COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	input plain
C00005 00003	charcode:=0
C00006 00004	r:=1
C00015 00005	r:=2 addto pix4 also pix4 shifted (4sqsize,0)
C00017 ENDMK
C⊗;
input plain;

openit;	% temporary

if ppi<450: sqsize=1; else: sqsize=round(ppi/300); fi;
cw=4*72.27*sqsize/ppi; % points per 4 dots
designsize:=8cw;

fontfamily "FIG";
codingscheme "GFGRAY";
fontfacebyte 78+designsize;	% for Xerox software only!

edges pix[];

pix1=pix4=nulledges;
addto pix1 contour
	((0,0)..(0,1)&(0,1)..(1,1)&(1,1)..(1,0)&(1,0)..(0,0)&cycle) scaled sqsize;
addto pix4 also pix1 shifted (sqsize,0);
addto pix4 also pix1 shifted (2sqsize,0);
addto pix4 also pix1 shifted (0,sqsize);
addto pix4 also pix1 shifted (0,2sqsize);
addto pix4 also pix1 shifted (sqsize,3sqsize);
addto pix4 also pix1 shifted (2sqsize,3sqsize);
addto pix4 also pix1 shifted (3sqsize,sqsize);
addto pix4 also pix1 shifted (3sqsize,2sqsize);
cull pix4 by (-1,1);

def char(expr c, aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al, d) =
	charcode:=c; pix0:=nulledges;
	if aa=1: addto pix0 also pix4 shifted(0,0); fi
	if ab=1: addto pix0 also pix4 shifted(0,-4sqsize); fi
	if ac=1: addto pix0 also pix4 shifted(0,-8sqsize); fi
	if ad=1: addto pix0 also pix4 shifted(0,-12sqsize); fi
	if ae=1: addto pix0 also pix4 shifted(0,-16sqsize); fi
	if af=1: addto pix0 also pix4 shifted(0,-20sqsize); fi
	if ag=1: addto pix0 also pix4 shifted(0,-24sqsize); fi
	if ah=1: addto pix0 also pix4 shifted(0,-28sqsize); fi
	if ai=1: addto pix0 also pix4 shifted(0,-32sqsize); fi
	if aj=1: addto pix0 also pix4 shifted(0,-36sqsize); fi
	if ak=1: addto pix0 also pix4 shifted(0,-40sqsize); fi
	if al=1: addto pix0 also pix4 shifted(0,-44sqsize); fi
	charwd:=cw*r;
	chardw:=4r;
	charht:=cw;
	chardp:=cw*d;
	charic:=0;
display pix0 on window;
	shipout pix0 enddef;

fontdimen 1: 0, cw, 0, 0, cw, cw, 0, cw/2;
charcode:=0;
pix0=nulledges;
dotsize=4*sqsize+1;
addto pix0 contour ((-1,0)..(0,1)..(1,0)..(0,-1)..cycle) scaled dotsize;
charwd:=3cw;
charht:=3cw;
chardp:=0;
charic:=0;
chardw:=12;
shipout pix0;
r:=1;
char(001,1,0,0,0,0,0,0,0,0,0,0,0,0);
char(002,0,1,0,0,0,0,0,0,0,0,0,0,1);
char(003,1,1,0,0,0,0,0,0,0,0,0,0,1);
char(004,0,0,1,0,0,0,0,0,0,0,0,0,2);
char(005,1,0,1,0,0,0,0,0,0,0,0,0,2);
char(006,0,1,1,0,0,0,0,0,0,0,0,0,2);
char(007,1,1,1,0,0,0,0,0,0,0,0,0,2);
char(008,0,0,0,1,0,0,0,0,0,0,0,0,3);
char(009,1,0,0,1,0,0,0,0,0,0,0,0,3);
char(010,0,1,0,1,0,0,0,0,0,0,0,0,3);
char(011,1,1,0,1,0,0,0,0,0,0,0,0,3);
char(012,0,0,1,1,0,0,0,0,0,0,0,0,3);
char(013,1,0,1,1,0,0,0,0,0,0,0,0,3);
char(014,0,1,1,1,0,0,0,0,0,0,0,0,3);
char(015,1,1,1,1,0,0,0,0,0,0,0,0,3);
char(016,0,0,0,0,1,0,0,0,0,0,0,0,4);
char(017,1,0,0,0,1,0,0,0,0,0,0,0,4);
char(018,0,1,0,0,1,0,0,0,0,0,0,0,4);
char(019,1,1,0,0,1,0,0,0,0,0,0,0,4);
char(020,0,0,1,0,1,0,0,0,0,0,0,0,4);
char(021,1,0,1,0,1,0,0,0,0,0,0,0,4);
char(022,0,1,1,0,1,0,0,0,0,0,0,0,4);
char(023,1,1,1,0,1,0,0,0,0,0,0,0,4);
char(024,0,0,0,1,1,0,0,0,0,0,0,0,4);
char(025,1,0,0,1,1,0,0,0,0,0,0,0,4);
char(026,0,1,0,1,1,0,0,0,0,0,0,0,4);
char(027,1,1,0,1,1,0,0,0,0,0,0,0,4);
char(028,0,0,1,1,1,0,0,0,0,0,0,0,4);
char(029,1,0,1,1,1,0,0,0,0,0,0,0,4);
char(030,0,1,1,1,1,0,0,0,0,0,0,0,4);
char(031,1,1,1,1,1,0,0,0,0,0,0,0,4);
char(032,0,0,0,0,0,1,0,0,0,0,0,0,5);
char(033,1,0,0,0,0,1,0,0,0,0,0,0,5);
char(034,0,1,0,0,0,1,0,0,0,0,0,0,5);
char(035,1,1,0,0,0,1,0,0,0,0,0,0,5);
char(036,0,0,1,0,0,1,0,0,0,0,0,0,5);
char(037,1,0,1,0,0,1,0,0,0,0,0,0,5);
char(038,0,1,1,0,0,1,0,0,0,0,0,0,5);
char(039,1,1,1,0,0,1,0,0,0,0,0,0,5);
char(040,0,0,0,1,0,1,0,0,0,0,0,0,5);
char(041,1,0,0,1,0,1,0,0,0,0,0,0,5);
char(042,0,1,0,1,0,1,0,0,0,0,0,0,5);
char(043,1,1,0,1,0,1,0,0,0,0,0,0,5);
char(044,0,0,1,1,0,1,0,0,0,0,0,0,5);
char(045,1,0,1,1,0,1,0,0,0,0,0,0,5);
char(046,0,1,1,1,0,1,0,0,0,0,0,0,5);
char(047,1,1,1,1,0,1,0,0,0,0,0,0,5);
char(048,0,0,0,0,1,1,0,0,0,0,0,0,5);
char(049,1,0,0,0,1,1,0,0,0,0,0,0,5);
char(050,0,1,0,0,1,1,0,0,0,0,0,0,5);
char(051,1,1,0,0,1,1,0,0,0,0,0,0,5);
char(052,0,0,1,0,1,1,0,0,0,0,0,0,5);
char(053,1,0,1,0,1,1,0,0,0,0,0,0,5);
char(054,0,1,1,0,1,1,0,0,0,0,0,0,5);
char(055,1,1,1,0,1,1,0,0,0,0,0,0,5);
char(056,0,0,0,1,1,1,0,0,0,0,0,0,5);
char(057,1,0,0,1,1,1,0,0,0,0,0,0,5);
char(058,0,1,0,1,1,1,0,0,0,0,0,0,5);
char(059,1,1,0,1,1,1,0,0,0,0,0,0,5);
char(060,0,0,1,1,1,1,0,0,0,0,0,0,5);
char(061,1,0,1,1,1,1,0,0,0,0,0,0,5);
char(062,0,1,1,1,1,1,0,0,0,0,0,0,5);
char(063,1,1,1,1,1,1,0,0,0,0,0,0,5);
char(064,0,0,0,0,0,0,1,0,0,0,0,0,6);
char(065,0,0,0,0,0,1,1,0,0,0,0,0,6);
char(066,0,0,0,0,1,1,1,0,0,0,0,0,6);
char(067,0,0,0,1,1,1,1,0,0,0,0,0,6);
char(068,0,0,1,1,1,1,1,0,0,0,0,0,6);
char(069,0,1,1,1,1,1,1,0,0,0,0,0,6);
char(070,1,1,1,1,1,1,1,0,0,0,0,0,6);
char(071,0,0,0,0,0,0,0,1,0,0,0,0,7);
char(072,0,0,0,0,0,0,1,1,0,0,0,0,7);
char(073,0,0,0,0,0,1,1,1,0,0,0,0,7);
char(074,0,0,0,0,1,1,1,1,0,0,0,0,7);
char(075,0,0,0,1,1,1,1,1,0,0,0,0,7);
char(076,0,0,1,1,1,1,1,1,0,0,0,0,7);
char(077,0,1,1,1,1,1,1,1,0,0,0,0,7);
char(078,1,1,1,1,1,1,1,1,0,0,0,0,7);
char(079,0,0,0,0,0,0,0,0,1,0,0,0,8);
char(080,0,0,0,0,0,0,0,1,1,0,0,0,8);
char(081,0,0,0,0,0,0,1,1,1,0,0,0,8);
char(082,0,0,0,0,0,1,1,1,1,0,0,0,8);
char(083,0,0,0,0,1,1,1,1,1,0,0,0,8);
char(084,0,0,0,1,1,1,1,1,1,0,0,0,8);
char(085,0,0,1,1,1,1,1,1,1,0,0,0,8);
char(086,0,1,1,1,1,1,1,1,1,0,0,0,8);
char(087,1,1,1,1,1,1,1,1,1,0,0,0,8);
char(088,0,0,0,0,0,0,0,0,0,1,0,0,9);
char(089,0,0,0,0,0,0,0,0,1,1,0,0,9);
char(090,0,0,0,0,0,0,0,1,1,1,0,0,9);
char(091,0,0,0,0,0,0,1,1,1,1,0,0,9);
char(092,0,0,0,0,0,1,1,1,1,1,0,0,9);
char(093,0,0,0,0,1,1,1,1,1,1,0,0,9);
char(094,0,0,0,1,1,1,1,1,1,1,0,0,9);
char(095,0,0,1,1,1,1,1,1,1,1,0,0,9);
char(096,0,1,1,1,1,1,1,1,1,1,0,0,9);
char(097,1,1,1,1,1,1,1,1,1,1,0,0,9);
char(098,0,0,0,0,0,0,0,0,0,0,1,0,10);
char(099,0,0,0,0,0,0,0,0,0,1,1,0,10);
char(100,0,0,0,0,0,0,0,0,1,1,1,0,10);
char(101,0,0,0,0,0,0,0,1,1,1,1,0,10);
char(102,0,0,0,0,0,0,1,1,1,1,1,0,10);
char(103,0,0,0,0,0,1,1,1,1,1,1,0,10);
char(104,0,0,0,0,1,1,1,1,1,1,1,0,10);
char(105,0,0,0,1,1,1,1,1,1,1,1,0,10);
char(106,0,0,1,1,1,1,1,1,1,1,1,0,10);
char(107,0,1,1,1,1,1,1,1,1,1,1,0,10);
char(108,1,1,1,1,1,1,1,1,1,1,1,0,10);
char(109,0,0,0,0,0,0,0,0,0,0,0,1,11);
char(110,0,0,0,0,0,0,0,0,0,0,1,1,11);
char(111,0,0,0,0,0,0,0,0,0,1,1,1,11);
char(112,0,0,0,0,0,0,0,0,1,1,1,1,11);
char(113,0,0,0,0,0,0,0,1,1,1,1,1,11);
char(114,0,0,0,0,0,0,1,1,1,1,1,1,11);
char(115,0,0,0,0,0,1,1,1,1,1,1,1,11);
char(116,0,0,0,0,1,1,1,1,1,1,1,1,11);
char(117,0,0,0,1,1,1,1,1,1,1,1,1,11);
char(118,0,0,1,1,1,1,1,1,1,1,1,1,11);
char(119,0,1,1,1,1,1,1,1,1,1,1,1,11);
char(120,1,1,1,1,1,1,1,1,1,1,1,1,11);
r:=2; addto pix4 also pix4 shifted (4sqsize,0);
char(121,1,1,1,1,1,1,1,1,1,1,1,1,11);
r:=4; addto pix4 also pix4 shifted (8sqsize,0);
char(122,1,1,1,1,1,1,1,1,1,1,1,1,11);
charlist 120, 121, 122;
end